home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Profi Club
/
Profi_Club_1_1992_-_de.d64
/
time step.64
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
3KB
|
104 lines
100 poke 53281,0:poke 53280,0:print chr$(5)chr$(142)chr$(8)
110 print"[147][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
120 d$="[194][146] [194]"
130 print d$:print d$
140 print"[194][146] hauptmenue [194]
150 [129] n[178]1 [164] 3:[153] d$:[130] n
160 [153]"peekwait f1wait wochentag bestimmen peek
170 for n=1 to 3:print d$:next n
180 print"[194][146] f3[146] tage zwischen daten [194]
190 [153] d$
200 [153]"peekwait -ohnewait minuten & stunden peek
210 for n=1 to 3:print d$:next n
220 print"[194][146] f5[146] tage zwischen daten [194]
230 [153] d$
240 [153]"peekwait -mit wait minuten & stunden peek
250 for n=1 to 3:print d$:next n
260 print"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]"
270 get a$
280 if a$=chr$(133) then 330
290 if a$=chr$(134) or a$=chr$(135) then 470
300 goto 270
310 :
320 :
330 rem unterprogramm wochentagbestimmung
340 i=1:gosub 680:gosub 1030
350 if wo=0 then b$=" samstag "
360 if wo=1 then b$=" sonntag "
370 if wo=2 then b$=" montag "
380 if wo=3 then b$=" dienstag "
390 if wo=4 then b$=" mittwoch "
400 if wo=5 then b$=" donnerstag "
410 if wo=6 then b$=" freitag "
420 print" wochentag :"b$
430 print"":gosub 830:goto 340
440 :
450 :
460 rem tage zwischen daten
470 for i=1 to 2:gosub 680:gosub 1030
480 f(i)=f:next i
490 nd=f(2)-f(1)
500 if a$=chr$(135) then 580
510 :
520 rem -- ohne minuten/stunden
530 print" anzahl der tage : "nd
540 gosub 930:print"":gosub 830:gosub 470
550 :
560 :
570 rem -- mit minuten/stunden
580 gg=60*h(2)+mi(2)-(60*h(1)+mi(1))
590 if gg<0 then nd=nd-1:h(2)=h(2)+24:goto 580
600 h=int(gg/60):m=gg-60*h
610 print" "nd"[146]tage "h"[146]stunden "m"[146]minuten"
620 xx=nd*1440+gg
630 print" oder in tagen : "int(xx/14.4+.5)/100
640 print" oder in stunden : "int(xx/.6+.5)/100
650 gosub 930:print"":gosub 830:gosub 470
660 :
670 :
680 rem eingabe der datenparameter
690 print"[147]"
700 poke19,64:input" jahr z.b. 1986 :";y(i):print
710 if y(i)<1582 then 690
720 input" monat :";m(i):print
730 if m(i)>12 then 690
740 input" tag :";d(i):print:poke19,0
750 if d(i)>31 then 690
760 if a$<>chr$(135) then 790
770 poke19,64:input" stunden :";h(i):print
780 input" minuten :";mi(i):print:poke19,0
790 return
800 :
810 :
820 rem untermenue-graphic darstellen
830 print"[213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]"
840 print"[194] e[146]nde h[146]auptmenue n[146]ocheinmal [194]"
850 print"[202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]"
860 get c$
870 if c$="e" then end
880 if c$="h" then clr:goto 100
890 if c$="n" then return
900 goto 860
910 :
920 rem poke-unterprogramm
930 poke 211,18:poke214,4:sys58640:print" bis von "
940 poke 211,18:poke214,5:sys58640:print"[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]"
950 poke 211,30:poke214,7:sys58640:print y(1)
960 poke 211,30:poke214,9:sys58640:print m(1)
970 poke 211,30:poke214,11:sys58640:print d(1)
980 if a$<>chr$(135) then 1010
990 poke 211,30:poke214,13:sys58640:print h(1)
1000 poke 211,30:poke214,15:sys58640:print mi(1)
1010 return
1020 :
1030 rem unterroutine zur bestimmung von faktor f
1040 f1=365*y(i)+d(i)+31*(m(i)-1)
1050 if m(i)>2 then 1080
1060 f2=int((y(i)-1)/4)-int(3/4*(int(((y(i)-1)/100)+1)))
1070 goto 1090
1080 f2=-int(.4*m(i)+2.3)+int(y(i)/4)-int(3/4*(int(y(i)/100)+1))
1090 f=f1+f2
1100 wo=f-int(f/7)*7
1110 return
1120 rem ---- e n d e ----